Option Explicit
Sub G_Sample009()
    Dim myShp As Shape
    Dim mySht As Worksheet
    Dim myCht As ChartObject
    Set mySht = Worksheets.Add
    'sWAutoShape
    Set myShp = mySht.Shapes.AddShape(Type:=msoShape5pointStar, _
          Left:=100, Top:=100, Width:=100, Height:=100)
    myShp.Fill.ForeColor.SchemeColor = 10			'ܦ⪺]w
    myShp.Copy
    With Worksheets.Add							'u@sW
      Charts.Add.Location Where:=xlLocationAsObject, Name:=.Name
      Set myCht = .ChartObjects(1)
      With myCht
       .Width = myShp.Width + 5
       .Height = myShp.Height + 5
       .Chart.Paste
       'wɮצW
       .Chart.Export Filename:= _
               ThisWorkbook.Path & "\" & "Shape.jpg", Filtername:="JPG"
      End With
      Application.DisplayAlerts = False
      .Delete
      Application.DisplayAlerts = True
    End With
    Set myCht = Nothing						'
    Set myShp = Nothing
    Set mySht = Nothing
End Sub

